home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q0498.dms
/
q0498.adf
/
WINHAND
< prev
Wrap
Text File
|
1992-06-07
|
1KB
|
91 lines
*
* Windowing routines (w)1991 BSI...
*
* Open our font...
openwin:textfont=openfont(texattr)
* Open the window...
windptr=openwindow(newwind)
* Get signal bit for window communication...
sgnmask=windptr+86
sgnmask=^sgnmask
sgnmask=sgnmask+15
sgnmask=^sgnmask>24
sgnmask=1<sgnmask
* Get RastPort for graphics.library functions...
rasport=windptr+50
rasport=^rasport
return
closwin:gosub remm
closewindow(windptr)
closefont(textfont)
return
* Fetch all outstanding messages...
remm: forbid()
remall: gosub nowsig
cmp mess,0,2,goto remall
permit()
return
newwind:dc.w 14,76,572,115
dc.b 2,1
dc.l $200208,$2001008,0,0
wtitle: dc.l 0,PCLSCREEN,0
dc.w -1,-1,-1,-1,$f
* Signal fetching...
waitsgn:port=windptr+86
port=^port
mess=getmsg(port)
cmp mess,0,2,goto messav
wait(sgnmask)
nowsig: port=windptr+86
port=^port
mess=getmsg(port)
cmp mess,0,0,goto messex
messav: class=mess+20
class=^class
code=mess+24
code=^code>16
iaddrs=mess+28
iaddrs=^iaddrs
replymsg(mess)
messex: return
* Font definition...
topaz: dc.b "topaz.font",0
dc.w 0
texattr:dc.l topaz
dc.w 8
dc.b 0,1
* IntuiText structure...
itext: dc.b 1,0,0,0
dc.w 0,0
dc.l texattr
itstr: dc.l 0,0
* Intuitext Centering...
print3d:poke(itext,2)
pokel(itext+4,$00010001)
pokel(itstr,txtptr)
cen=intuitextlength(itext)
cen=572-cen>1
printitext(rasport,itext,cen,yyval)
poke(itext,colour)
pokel(itext+4,0)
printitext(rasport,itext,cen,yyval)
yyval=yyval+10
return